PC Gamer (Italian) 38/PC Gamer IT CD 38 2-2.iso/utility/winmenu98/_SETUP.1/Config.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1998-12-21 | 27KB | 1,052 lines

object Form1: TForm1
  Left = 238
  Top = 160
  Width = 581
  Height = 442
  Caption = 'Svenna�s Win Menu 98 - Setup'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 380
    Width = 573
    Height = 31
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object OK: TButton
      Left = 400
      Top = 0
      Width = 75
      Height = 25
      Hint = 'Exit and save'
      Caption = '&OK'
      ModalResult = 1
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = SaveClick
    end
    object Cancel: TButton
      Left = 480
      Top = 0
      Width = 75
      Height = 25
      Hint = 'Exit without saving'
      Cancel = True
      Caption = '&Cancel'
      ModalResult = 2
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = CancelClick
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 573
    Height = 380
    Align = alClient
    BevelOuter = bvNone
    BorderWidth = 5
    TabOrder = 1
    object PageControl1: TPageControl
      Left = 5
      Top = 5
      Width = 563
      Height = 370
      ActivePage = ItemsTab
      Align = alClient
      HotTrack = True
      TabOrder = 0
      OnChanging = PageControl1Changing
      object ItemsTab: TTabSheet
        Caption = 'Items menu'
        object Items_Panel: TTabControl
          Left = 8
          Top = 16
          Width = 537
          Height = 313
          MultiLine = True
          TabIndex = 0
          TabOrder = 0
          TabPosition = tpBottom
          Tabs.Strings = (
            'Windows1'
            'Windows2'
            'Windows3'
            'Windows4'
            'Windows5'
            'Windows6'
            'Windows7'
            'Windows8'
            'Windows9'
            'Windows10'
            'Windows11'
            'Windows12'
            'Windows13'
            'Windows14'
            'Windows15')
          OnChange = Items_PanelChange
          object ItemIcon: TImage
            Left = 272
            Top = 200
            Width = 41
            Height = 41
            Stretch = True
          end
          object Label1: TLabel
            Left = 256
            Top = 8
            Width = 28
            Height = 13
            Caption = 'Name'
          end
          object Label2: TLabel
            Left = 256
            Top = 48
            Width = 65
            Height = 13
            Caption = 'File command'
          end
          object Label3: TLabel
            Left = 256
            Top = 88
            Width = 83
            Height = 13
            Caption = 'Working directory'
          end
          object Label4: TLabel
            Left = 256
            Top = 128
            Width = 59
            Height = 13
            Caption = 'Executetype'
          end
          object Label5: TLabel
            Left = 256
            Top = 168
            Width = 21
            Height = 13
            Caption = 'Icon'
          end
          object Label11: TLabel
            Left = 272
            Top = 184
            Width = 38
            Height = 13
            Caption = 'No Icon'
          end
          object ItemsListBox: TListBox
            Left = 8
            Top = 8
            Width = 201
            Height = 233
            ItemHeight = 13
            TabOrder = 9
            OnClick = ItemsListBoxCLick
          end
          object NameEdit: TEdit
            Left = 272
            Top = 24
            Width = 161
            Height = 21
            TabOrder = 0
          end
          object ExecuteTypeEdit: TComboBox
            Left = 272
            Top = 144
            Width = 161
            Height = 21
            ItemHeight = 13
            Items.Strings = (
              'Default'
              'Autorun'
              'Print')
            TabOrder = 3
            Text = 'Default'
          end
          object Button1: TButton
            Left = 448
            Top = 16
            Width = 75
            Height = 25
            Caption = '&Add'
            Default = True
            TabOrder = 6
            OnClick = Add
          end
          object Browse: TButton
            Left = 448
            Top = 56
            Width = 75
            Height = 25
            Caption = '&Browse'
            TabOrder = 7
            OnClick = BrowseClick
          end
          object Delete: TButton
            Left = 448
            Top = 96
            Width = 75
            Height = 25
            Caption = '&Delete'
            TabOrder = 8
            OnClick = DeleteClick
          end
          object ItemTrans: TCheckBox
            Left = 320
            Top = 224
            Width = 97
            Height = 17
            Caption = 'Transparent'
            TabOrder = 5
            OnClick = ItemTransClick
          end
          object ChangeIcon: TButton
            Left = 320
            Top = 200
            Width = 75
            Height = 17
            Caption = 'Change &icon'
            TabOrder = 4
            OnClick = ChangeIconClick
          end
          object FilePathEdit: TEdit
            Left = 272
            Top = 104
            Width = 161
            Height = 21
            TabOrder = 2
          end
          object FileNameEdit: TEdit
            Left = 272
            Top = 64
            Width = 161
            Height = 21
            TabOrder = 1
          end
          object SpinButton2: TSpinButton
            Left = 216
            Top = 8
            Width = 25
            Height = 33
            DownGlyph.Data = {
              AE000000424DAE00000000000000360000002800000009000000060000000100
              1000000000007800000000000000000000000000000000000000E03DE03DE03D
              E03DE03DE03DE03DE03DE03D0000E03DE03DE03DE03D0000E03DE03DE03DE03D
              0C00E03DE03DE03D000000000000E03DE03DE03D0200E03DE03D000000000000
              00000000E03DE03D0302E03D0000000000000000000000000000E03D3AADE03D
              E03DE03DE03DE03DE03DE03DE03DE03DC081}
            TabOrder = 10
            UpGlyph.Data = {
              AE000000424DAE00000000000000360000002800000009000000060000000100
              1000000000007800000000000000000000000000000000000000E03DE03DE03D
              E03DE03DE03DE03DE03DE03D0000E03D0000000000000000000000000000E03D
              BFFFE03DE03D00000000000000000000E03DE03D0000E03DE03DE03D00000000
              0000E03DE03DE03D0000E03DE03DE03DE03D0000E03DE03DE03DE03D3AADE03D
              E03DE03DE03DE03DE03DE03DE03DE03D0000}
            OnDownClick = SpinButton1DownClick
            OnUpClick = SpinButton1UpClick
          end
        end
      end
      object TabSheet2: TTabSheet
        Caption = 'Group options'
        object Label18: TLabel
          Left = 216
          Top = 24
          Width = 58
          Height = 13
          Caption = 'Group name'
        end
        object Groups: TLabel
          Left = 392
          Top = 24
          Width = 37
          Height = 13
          Caption = 'Groups:'
        end
        object GroupBox7: TGroupBox
          Left = 16
          Top = 24
          Width = 193
          Height = 113
          Caption = 'Group font'
          TabOrder = 0
          object FontLabel1: TLabel
            Left = 24
            Top = 16
            Width = 21
            Height = 13
            Caption = 'Font'
          end
          object ChangeFont1: TButton
            Left = 24
            Top = 56
            Width = 121
            Height = 17
            Caption = 'Change font'
            TabOrder = 0
            OnClick = ChangeFont1Click
          end
          object Use_WinFont1: TButton
            Left = 24
            Top = 80
            Width = 121
            Height = 17
            Caption = 'Use windows font'
            TabOrder = 1
            OnClick = Use_WinFont1Click
          end
        end
        object GroupBox6: TGroupBox
          Left = 16
          Top = 144
          Width = 193
          Height = 121
          Caption = 'Group Icon'
          TabOrder = 1
          object GroupIcon: TImage
            Left = 24
            Top = 24
            Width = 41
            Height = 41
            Enabled = False
            Stretch = True
          end
          object GroupIconTrans: TCheckBox
            Left = 24
            Top = 96
            Width = 97
            Height = 17
            Caption = 'Transparent'
            TabOrder = 0
            OnClick = GroupIconTransClick
          end
          object change_icon1: TButton
            Left = 22
            Top = 72
            Width = 123
            Height = 17
            Caption = 'Change icon'
            TabOrder = 1
            OnClick = change_icon1Click
          end
        end
        object GroupEnabled1: TCheckBox
          Left = 232
          Top = 88
          Width = 97
          Height = 17
          Caption = 'Group enabled'
          TabOrder = 2
          OnClick = GroupEnabled1Click
        end
        object NyGroupName1: TEdit
          Left = 227
          Top = 42
          Width = 121
          Height = 21
          TabOrder = 3
          OnChange = NyGroupName1Change
        end
        object GroupListBox1: TListBox
          Left = 392
          Top = 40
          Width = 113
          Height = 201
          ItemHeight = 13
          Items.Strings = (
            'Windows1'
            'Windows2'
            'Windows3'
            'Windows4'
            'Windows5'
            'Windows6'
            'Windows7'
            'Windows8'
            'Windows9'
            'Windows10'
            'Windows11'
            'Windows12'
            'Windows13'
            'Windows14'
            'Windows15')
          TabOrder = 4
          OnClick = GroupListBox1Click
        end
        object Group_Up: TButton
          Left = 392
          Top = 253
          Width = 75
          Height = 17
          Caption = 'Move upp'
          TabOrder = 5
          OnClick = Group_UpClick
        end
        object Group_Down: TButton
          Left = 392
          Top = 270
          Width = 75
          Height = 17
          Caption = 'Move down'
          TabOrder = 6
          OnClick = Group_DownClick
        end
      end
      object TabSheet3: TTabSheet
        Caption = 'User profiles'
        object GroupBox1: TGroupBox
          Left = 16
          Top = 8
          Width = 193
          Height = 321
          Caption = 'Bar'
          TabOrder = 0
          object Label8: TLabel
            Left = 16
            Top = 16
            Width = 31
            Height = 13
            Caption = 'Height'
          end
          object Label9: TLabel
            Left = 16
            Top = 88
            Width = 53
            Height = 13
            Caption = 'Bevel(dots)'
          end
          object Label17: TLabel
            Left = 16
            Top = 112
            Width = 104
            Height = 13
            Caption = 'Position from top(dots)'
          end
          object Label21: TLabel
            Left = 32
            Top = 200
            Width = 38
            Height = 13
            Caption = 'Label21'
          end
          object Label22: TLabel
            Left = 16
            Top = 184
            Width = 24
            Height = 13
            Caption = 'Type'
          end
          object Label10: TLabel
            Left = 16
            Top = 128
            Width = 109
            Height = 13
            Caption = 'Position from right(dots)'
          end
          object Label23: TLabel
            Left = 16
            Top = 240
            Width = 41
            Height = 13
            Caption = 'Show in:'
          end
          object Label27: TLabel
            Left = 16
            Top = 280
            Width = 47
            Height = 13
            Caption = 'Tray icon:'
            Visible = False
          end
          object Image2: TImage
            Left = 120
            Top = 280
            Width = 33
            Height = 33
            Stretch = True
          end
          object FullBar1: TRadioButton
            Left = 24
            Top = 32
            Width = 113
            Height = 17
            Hint = 'Use the fullscreen'
            Caption = 'Fullscreen'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnClick = FullBar1Click
          end
          object ButtonsBar1: TRadioButton
            Left = 24
            Top = 48
            Width = 113
            Height = 17
            Hint = 'Always resize the menubar to the last button'
            Caption = 'Buttons'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            OnClick = ButtonsBar1Click
          end
          object CustomBar1: TRadioButton
            Left = 24
            Top = 64
            Width = 81
            Height = 17
            Hint = 'Use a custom height'
            Caption = 'Custom'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
            OnClick = CustomBar1Click
          end
          object BarCustom1: TEdit
            Left = 128
            Top = 64
            Width = 41
            Height = 17
            Hint = 'Edit the height of the menubar'
            AutoSize = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 3
            Visible = False
            OnChange = BarCustom1Change
          end
          object BarBevelHeight1: TEdit
            Left = 128
            Top = 88
            Width = 41
            Height = 17
            Hint = 'Edit the bevel on the menubar'
            AutoSize = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 4
            OnChange = BarBevelHeight1Change
          end
          object Change: TButton
            Left = 24
            Top = 216
            Width = 75
            Height = 17
            Hint = 'Change the selected pluggin'
            Caption = 'Change'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 5
            OnClick = ChangeClick
          end
          object BarTopEdit1: TEdit
            Left = 128
            Top = 112
            Width = 41
            Height = 17
            Hint = 'Edit the position from the top of the screen'
            AutoSize = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 6
            OnChange = BarTopEdit1Change
          end
          object BarRight: TEdit
            Left = 128
            Top = 128
            Width = 41
            Height = 17
            Hint = 'Edit the position from the right of the screen'
            AutoSize = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 7
            OnChange = BarRightChange
          end
          object AlwaysOnTop: TCheckBox
            Left = 16
            Top = 152
            Width = 97
            Height = 17
            Caption = 'StayOnTop'
            TabOrder = 8
            OnClick = AlwaysOnTopClick
          end
          object AutoHide: TCheckBox
            Left = 16
            Top = 168
            Width = 97
            Height = 17
            Caption = 'Auto hide'
            TabOrder = 9
            OnClick = AutoHideClick
          end
          object ShowBox: TComboBox
            Left = 24
            Top = 256
            Width = 145
            Height = 21
            Hint = 'Where do you wont Win Menu 98 to show?'
            Style = csDropDownList
            DropDownCount = 4
            ItemHeight = 13
            Items.Strings = (
              'Task bar and tray'
              'Task bar only'
              'Tray only'
              'None')
            ParentShowHint = False
            ShowHint = True
            TabOrder = 10
            OnChange = ShowBoxChange
          end
        end
        object GroupBox4: TGroupBox
          Left = 224
          Top = 8
          Width = 185
          Height = 137
          Caption = 'Setup file'
          TabOrder = 1
          object DirLabel1: TDirLabel
            Left = 16
            Top = 24
            Width = 153
            Height = 17
            DirName = 'DirLabel1'
          end
          object Button4: TButton
            Left = 24
            Top = 48
            Width = 75
            Height = 17
            Hint = 'Change the setup file'
            Caption = 'Change'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnClick = ChangeprofileClick
          end
          object StartMyProfile: TCheckBox
            Left = 16
            Top = 80
            Width = 105
            Height = 17
            Caption = 'Start in my  profile'
            State = cbChecked
            TabOrder = 1
            OnClick = StartMyProfileClick
          end
        end
        object GroupBox2: TGroupBox
          Left = 224
          Top = 160
          Width = 185
          Height = 169
          Caption = 'Icons'
          TabOrder = 2
          object Label6: TLabel
            Left = 24
            Top = 24
            Width = 57
            Height = 13
            Caption = 'Height(dots)'
          end
          object Label7: TLabel
            Left = 24
            Top = 40
            Width = 54
            Height = 13
            Caption = 'Widht(dots)'
          end
          object Label12: TLabel
            Left = 24
            Top = 56
            Width = 65
            Height = 13
            Caption = 'Spacing(dots)'
          end
          object Label24: TLabel
            Left = 24
            Top = 120
            Width = 78
            Height = 13
            Caption = 'Popup delay(ms)'
          end
          object IconsHeight1: TEdit
            Left = 112
            Top = 24
            Width = 41
            Height = 17
            Hint = 'Edit the Icons height'
            AutoSize = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 0
            OnChange = IconsHeight1Change
          end
          object IconsWidht1: TEdit
            Left = 112
            Top = 40
            Width = 41
            Height = 17
            Hint = 'Edit icons widht'
            AutoSize = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 1
            OnChange = IconsWidht1Change
          end
          object IconsSpace1: TEdit
            Left = 112
            Top = 56
            Width = 41
            Height = 17
            Hint = 'Edit the space between the icons'
            AutoSize = False
            ParentShowHint = False
            ShowHint = True
            TabOrder = 2
            OnChange = IconsSpace1Change
          end
          object AutoPopup1: TCheckBox
            Left = 24
            Top = 100
            Width = 97
            Height = 17
            Hint = 'Let the menu popup o mouse over'
            Caption = 'Auto popup'
            ParentShowHint = False
            ShowHint = True
            TabOrder = 3
            OnClick = AutoPopup1Click
          end
          object PopupDelay: TEdit
            Left = 112
            Top = 120
            Width = 41
            Height = 17
            AutoSize = False
            TabOrder = 4
            OnChange = PopupDelayChange
          end
        end
      end
      object TabSheet1: TTabSheet
        Caption = 'Live update'
        object Label26: TLabel
          Left = 312
          Top = 144
          Width = 94
          Height = 13
          Caption = 'Download progress:'
        end
        object DownloadStatus: TLabel
          Left = 312
          Top = 200
          Width = 40
          Height = 13
          Caption = 'Ready...'
        end
        object GroupBox5: TGroupBox
          Left = 312
          Top = 8
          Width = 193
          Height = 113
          Caption = 'Current version info'
          TabOrder = 0
          object Version: TLabel
            Left = 8
            Top = 24
            Width = 35
            Height = 13
            Caption = 'Version'
          end
          object Dato: TLabel
            Left = 8
            Top = 48
            Width = 23
            Height = 13
            Caption = 'Dato'
          end
        end
        object GroupBox8: TGroupBox
          Left = 8
          Top = 8
          Width = 281
          Height = 329
          Caption = 'Server version info'
          TabOrder = 1
          object NewVersion: TLabel
            Left = 24
            Top = 32
            Width = 35
            Height = 13
            Caption = 'Version'
          end
          object NewDato: TLabel
            Left = 24
            Top = 56
            Width = 23
            Height = 13
            Caption = 'Date'
          end
          object Label25: TLabel
            Left = 8
            Top = 88
            Width = 126
            Height = 13
            Caption = 'Info about the new version'
          end
          object LiveUpdate: TButton
            Left = 184
            Top = 24
            Width = 81
            Height = 25
            Caption = 'Connect'
            Enabled = False
            TabOrder = 0
            OnClick = LiveUpdateClick
          end
          object LiveDownload: TButton
            Left = 184
            Top = 48
            Width = 81
            Height = 25
            Caption = 'Update'
            Enabled = False
            TabOrder = 1
            OnClick = LiveDownloadClick
          end
          object Memo1: TMemo
            Left = 8
            Top = 104
            Width = 265
            Height = 217
            Lines.Strings = (
              ''
              ' -No new version on the server')
            TabOrder = 2
          end
        end
        object DownloadProgress: TProgressBar
          Left = 312
          Top = 168
          Width = 193
          Height = 15
          Min = 0
          Max = 100
          TabOrder = 2
        end
      end
      object AboutTab: TTabSheet
        Caption = 'About'
        object TransImage1: TTransImage
          Left = 16
          Top = 8
          Width = 200
          Height = 200
          Picture.Data = {<image001.bmp>}
          PictureMask.Data = {<image002.bmp>}
        end
        object Label13: TLabel
          Left = 232
          Top = 32
          Width = 281
          Height = 33
          AutoSize = False
          Caption = 'Svenna�s Win Menu 98'
          Font.Charset = ANSI_CHARSET
          Font.Color = clRed
          Font.Height = -24
          Font.Name = 'Comic Sans MS'
          Font.Style = [fsBold, fsItalic, fsUnderline]
          ParentFont = False
          Transparent = True
        end
        object Label14: TLabel
          Left = 224
          Top = 96
          Width = 51
          Height = 13
          Caption = 'Shareware'
        end
        object Label15: TLabel
          Left = 233
          Top = 112
          Width = 194
          Height = 26
          Caption =
            'This is app shareware. but if you use this FREE registration it�' +
            's yours.'
          Transparent = True
          WordWrap = True
        end
        object Image1: TImage
          Left = 440
          Top = 72
          Width = 75
          Height = 103
          AutoSize = True
          Picture.Data = {<image003.bmp>}
        end
        object Label20: TLabel
          Left = 24
          Top = 280
          Width = 95
          Height = 13
          Caption = '1279 OSLO Norway'
        end
        object Label19: TLabel
          Left = 24
          Top = 264
          Width = 57
          Height = 13
          Caption = 'Pasopvg 31'
        end
        object URLLabel2: TURLLabel
          Left = 24
          Top = 240
          Width = 91
          Height = 13
          Cursor = crHandPoint
          Effect98 = True
          Caption = 'www.sventore.com'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object URLLabel1: TURLLabel
          Left = 24
          Top = 224
          Width = 107
          Height = 13
          Cursor = crHandPoint
          LabelType = hmMAIL
          AllowDown = True
          Effect98 = True
          Caption = '[e-mail]'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label16: TLabel
          Left = 24
          Top = 200
          Width = 88
          Height = 13
          Caption = 'Sven Tore Iversen'
        end
        object TickLabel: TLabel
          Left = 232
          Top = 160
          Width = 20
          Height = 24
          Caption = '15'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -19
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsUnderline]
          ParentFont = False
          Visible = False
        end
        object SerialButton: TButton
          Left = 440
          Top = 240
          Width = 75
          Height = 25
          Caption = '&Enter Serial'
          TabOrder = 1
          OnClick = SerialButtonClick
        end
        object Button2: TButton
          Left = 440
          Top = 264
          Width = 75
          Height = 25
          Caption = '&Register'
          TabOrder = 0
          OnClick = Button2Click
        end
      end
    end
  end
  object Open: TOpenDialog
    Left = 120
    Top = 384
  end
  object OpenImage: TOpenPictureDialog
    Filter =
      'All (*.gif;*.bmp;*.ico;*.emf;*.wmf)|*.gif;*.bmp;*.ico;*.emf;*.wm' +
      'f|CompuServe GIF Image (*.gif)|*.gif|Bitmaps (*.bmp)|*.bmp|Icons' +
      ' (*.ico)|*.ico|Enhanced Metafiles (*.emf)|*.emf|Metafiles (*.wmf' +
      ')|*.wmf'
    Left = 80
    Top = 384
  end
  object FileDrop1: TFileDrop
    EnableDrop = True
    DropControl = Owner
    OnDrop = FileDrop1Drop
    Left = 48
    Top = 384
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    MinFontSize = 4
    MaxFontSize = 24
    Left = 16
    Top = 384
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 161
    Top = 381
  end
  object VersionInfo1: TrpVersionInfo
    Left = 201
    Top = 381
  end
  object OnlyOne: TSingleInstance
    Left = 240
    Top = 380
  end
  object FTP: T_FTP
    Hostname = '127.0.0.1'
    URI = '127.0.0.1/wm98'
    Password = 'update'
    Username = 'live'
    Async = False
    Left = 272
    Top = 380
  end
end